home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / code pro-64 sma (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  20.8 KB  |  622 lines
  1. 6 poke53280,14:poke53281,6
  2. 10 dim hf(96),lf(96),pt(9,9),as(255),wt$(9),nd(2,22),mu(99,3)
  3. 90 p1%=peek(828):p2%=peek(829):p3%=peek(830)
  4. 99 ft=0
  5. 100 rem title page
  6. 110 poke53272,23:print "[159][147]";spc(16);"[215][197][204][195][207][205][197][157][157][157][157][157]to[157][157][157][157][157][157][195]ode[208]ro-64[146]"
  7. 115 print "        ([193] [195]ommodore 64 [212]utorial)":print spc(18);"by"
  8. 120 print"       [211][217][211][212][197][205][211] [205][193][206][193][199][197][205][197][206][212] [193][211][211][207][195][201][193][212][197][211]"
  9. 125 print spc(11);"3700 [195]omputer [196]rive":print spc(12);"[210]aleigh, [206][195] 27609"
  10. 130 print"           [195]opyright (c) 1983":printtab(10);"'[193]ll [210]ights [210]eserved'"
  11. 135 print spc(6);"[208]lease [215][193][201][212][146] for program [204][207][193][196][146]"
  12. 136 ifft=0thengosub3300:gosub9000:ft=1
  13. 137 ifft=1then fort=0to1500:nextt
  14. 150 print"[147][159]";:pt$="  [215]elcome to the [195]ode[208]ro-64 demo!  ":gosub9410:print
  15. 151 gosub9300
  16. 152 print"  [217]ou will be seeing some of the more"
  17. 153 gosub9300
  18. 154 print"  than ";:pt$="160":gosub9410:print" tutorial and instructional"
  19. 155 gosub9300
  20. 156 print"  screens in this system in the next"
  21. 157 gosub9300
  22. 158 print"  5 minutes. "
  23. 164 print"  [195]ode[208]ro-64 teaches you [194][193][211][201][195], [211]prite,"
  24. 165 gosub9300
  25. 166 print"  and [205]usic programming...";:pt$="visually":gosub9410:print"..."
  26. 167 gosub9300
  27. 168 print"  [217]ou are in ";:pt$="complete control":gosub9410:print" and use"
  28. 169 gosub9300
  29. 170 print"  our [205]ain [205]enu to select topics..."
  30. 171 ml=25:pt$=f7$:gosub9420
  31. 172 gosub9400
  32. 200 gosub201:goto245
  33. 201 poke53272,23:print"[146][159][147][195]ode[208]ro-64 (c) 1983, [211][205][193]      [205]ain [205]enu"
  34. 202 poke54296,0
  35. 203 print"     [207]verview":print"         0 - [213]sing [195]ode[208]ro-64          "
  36. 204 print"         1 - [195][194][205]-64 [203]eyboard [210]eview    "
  37. 206 print"     [194][193][211][201][195][160][212]utorial"
  38. 207 print"         2 - [201]ntroduction to [194][193][211][201][195]     "
  39. 208 print"         3 - [194][193][211][201][195][160][195]ommands            "
  40. 210 print"         4 - [194][193][211][201][195][160][211]tatements          "
  41. 212 print"         5 - [194][193][211][201][195][160][198]unctions           "
  42. 214 print"     [199]raphics & [205]usic"
  43. 215 print"         6 - [203]eyboard graphics         "
  44. 216 print"         7 - [201]ntroduction to [211][208][210][201][212][197][211]   "
  45. 218 print"         8 - [211][208][210][201][212][197][160][199]enerator          "
  46. 220 print"         9 - [211][208][210][201][212][197][160][196]emonstrator       "
  47. 222 print"         [193] - [201]ntroduction to [205][213][211][201][195]     "
  48. 224 print"         [194] - [205][213][211][201][195][160][199]enerator           "
  49. 226 print"         [195] - [205][213][211][201][195][160][196]emonstrator        "
  50. 228 print"     [207]ther [207]ptions":print"         [203] - [203]eyword [201]nquiry           "
  51. 230 print"         [210] - [210]un [211]ample [208]rograms       "
  52. 233 return
  53. 245 ml=25:pt$="  [212]hese are the topics we will cover.  ":gosub9420
  54. 250 ns=1152:nl=03:gosub1190:gosub1192:ns=1192:nl=03:gosub1190:gosub1192
  55. 251 ns=1312:nl=03:gosub1190:gosub1192:ns=1352:nl=03:gosub1190:gosub1192
  56. 252 ns=1392:nl=22:gosub1190:ns=1432:nl=03:gosub1190:gosub1192
  57. 253 ns=1552:nl=03:gosub1190:gosub1192:ns=1592:nl=03:gosub1190:gosub1192
  58. 254 ns=1632:nl=22:gosub1190:ns=1672:nl=25:gosub1190
  59. 255 ns=1712:nl=03:gosub1190:gosub1192:ns=1752:nl=21:gosub1190
  60. 256 ns=1792:nl=24:gosub1190:ns=1912:nl=03:gosub1190:gosub1192
  61. 257 ns=1952:nl=03:gosub1190:gosub1192
  62. 258 ml=25:pt$=f7$:gosub9420:gosub9400
  63. 259 gosub2200:gosub3450:gosub3100:gosub2600:gosub900:gosub4000:goto1500
  64. 400 goto1000
  65. 900 print"[147][159]"
  66. 902 print"  [212]he [195]ommodore 64 [211]ound [201]nterface"
  67. 903 gosub9300
  68. 904 print"  [196]evice ";:pt$="([211][201][196])":gosub9410:print" is a unique and quite"
  69. 905 gosub9300
  70. 906 print"  versatile music synthesizer...but it"
  71. 907 gosub9300
  72. 908 print"  is ";:pt$="complex and difficult":gosub9410:print" to program."
  73. 909 gosub9300
  74. 910 print"  [195]ode[208]ro-64 helps you ";:pt$="master":gosub9410:print" sound"
  75. 911 gosub9300
  76. 912 print"  effects and music generation with the"
  77. 913 gosub9300
  78. 914 print"  [211][201][196] by letting you ";:pt$="[197]xperiment":gosub9410:print" with"
  79. 915 gosub9300
  80. 916 print"  the [211][201][196]..."
  81. 917 gosub9300
  82. 918 print"  [207]ur ";:pt$="[205][213][211][201][195][160][196]emonstrator":gosub9410:print" lets you enter"
  83. 919 gosub9300
  84. 920 print"  various combinations of [211][201][196] register"
  85. 921 gosub9300
  86. 922 print"  values and ";:pt$="hear the results":gosub9410:print" by"
  87. 923 gosub9300
  88. 924 print"  playing a keyboard 'organ'."
  89. 925 gosub9300
  90. 926 print"  [215]atch and listen now..."
  91. 927 ml=25:pt$=f7$:gosub9420
  92. 928 gosub9400
  93. 1000 poke53272,21:print"[159][147]codepro-64   music demonstrator    c.0.4";
  94. 1001 poke54296,15
  95. 1002 nd=1:nz=50:ln=3:rem nz=77 for 3 ln
  96. 1009 print"[146]                                      "
  97. 1010 print"[146]        [144]  [144]  [194] [144]  [144]  [144]  [194] [144]  [144]  [194] [144]  [144]  [146]   last"
  98. 1012 print"[146]        [144]  [144]  [194] [144]  [144]  [144]  [194] [144]  [144]  [194] [144]  [144]  [146]   note"
  99. 1014 print"[146]        [146]2 [146]3 [194] [146]5 [146]6 [146]7 [194] [146]9 [146]0 [194] [146]- [146]\ [146]       "
  100. 1016 print"[146]        [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [146]       "
  101. 1018 print"[146]       q[194]w[194]e[194]r[194]t[194]y[194]u[194]i[194]o[194]p[194]@[194]*[194]^"
  102. 1020 print"[159]#[146]   wf[146]    pulse[146]  a[146]  d[146]  s[146]  r[146] dur[146] s/m[146] oct[146]"
  103. 1024 gosub1200
  104. 1026 print"select line with cursor. play keyboard,"
  105. 1027 print"or press f2 to edit line or f4 for song.";
  106. 1028 ml=23:pt$="codepro lets you select & edit sid   ":gosub9420
  107. 1029 ml=24:pt$="parameters and play the keyboard.    ":gosub9420
  108. 1030 print"";:forn=0toln:print"";:nextn
  109. 1031 print"";right$(str$(ln),1);
  110. 1040 ad=9:sr=0:pokev1+5,9:pokev1+6,0:pokev1+2,0:pokev1+3,8:ov=60
  111. 1041 nz=0
  112. 1042 ty=20:wn=65:wf=64:nx=0:ni=1
  113. 1043 nx=nx+ni:ifnx>22ornx<1then1060
  114. 1044 ny=nx-ni:ifny<1thenny=1
  115. 1045 ifny>22thenny=22
  116. 1046 pokepz,nd(0,nx):pokepz+1,nd(1,nx):pokepx+nd(2,ny),32:pokepx+nd(2,nx),81
  117. 1048 nn=ov+nx:pokev1+5,0:pokev1+6,0:pokev1+4,8:pokev1+4,0
  118. 1050 pokev1,lf(nn):pokev1+1,hf(nn):pokev1+5,ad:pokev1+6,sr
  119. 1052 pokev1+4,wn:tx=ti+ty
  120. 1054 iftx>tithen1054
  121. 1056 pokev1+4,wf:goto1043
  122. 1060 nz=nz+1:ifnz>1then1140
  123. 1062 print"";:forn=0toln:print"";:nextn
  124. 1063 print"[146][159]";right$(str$(ln),1);
  125. 1064 ln=0:print"";:forn=0toln:print"";:nextn
  126. 1065 print"";right$(str$(ln),1);
  127. 1070 ad=9:sr=208:wn=33:wf=32:pokev1+5,9:pokev1+6,208:pokev1+2,0:pokev1+3,0
  128. 1072 ty=10:nx=22:ni=-1:ov=36
  129. 1074 goto1044
  130. 1100 rem
  131. 1135 rem flash -play keyboard-
  132. 1136 ns=1849:nl=14:gosub1190
  133. 1139 goto1030
  134. 1140 rem
  135. 1142 ml=25:pt$="press f7 to continue           ":gosub9420
  136. 1149 gosub9400:return
  137. 1190 forn5=0tonl-1:n6=ns+n5:poken6,peek(n6)+128:nextn5:fort=0to250:nextt:return
  138. 1192 forn5=0tonl-1:n6=ns+n5:poken6,peek(n6)-128:nextn5:fort=0to100:nextt:return
  139. 1194 forn5=0tonl-1:n6=ns+n5:poken6,peek(n6)+128:nextn5:fort=0to2000:nextt:return
  140. 1196 forn5=0tonl-1:n6=ns+n5:poken6,peek(n6)-128:nextn5:fort=0to20:nextt:return
  141. 1199 stop
  142. 1200 print"0  33(s)  0,  0  0  9 12 12  10  s   3"
  143. 1201 print"1  33(s)  0,  0  0  9 12 12  20  m   5"
  144. 1202 print"2  17(t)  0,  0  0  9 12 12  20  m   5"
  145. 1203 print"3  65(p)  8,  0  0  9 12 12  20  m   5"
  146. 1204 print"4 129(n)  0,  0  0  9 12 12  20  m   2"
  147. 1205 print"5  33(s)  0,  0  4 10  8 10  20  m   5"
  148. 1206 print"6   0     0,  0  0  0  0  0   0  s   0"
  149. 1207 print"7   0     0,  0  0  0  0  0   0  s   0"
  150. 1208 print"8   0     0,  0  0  0  0  0   0  s   0"
  151. 1209 print"9   0     0,  0  0  0  0  0   0  s   0"
  152. 1299 return
  153. 1500 print"[147][159] [195]ode[208]ro-64 is only $59.95 (plus $3.00
  154. 1502 [153]" shipping)!  atnnd we offer a 10-day "
  155. 1504 [153]" moneyback guarantee.  (NULL)rder now by "
  156. 1506 [153]" calling (NULL)(NULL)(NULL)(NULL) asc(NULL)valval:"
  157. 1508 [153]"            1-800-762-7874 openwait"
  158. 1510 [153]" and use your (NULL)len/(NULL)right$(NULL)atn card.  (NULL)r send "
  159. 1512 [153]" $62.95 to:"
  160. 1514 [153]"     open (NULL)(NULL)(NULL)(NULL)val(NULL)(NULL) (NULL)atn(NULL)atnchr$val(NULL)val(NULL)(NULL) atn(NULL)(NULL)(NULL)lenright$atn(NULL)val(NULL) "
  161. 1516 [153]" 3700 lenomputer str$rive "
  162. 1518 [153]" (NULL)aleigh, (NULL)len   27609 wait"
  163. 1520 [153]" (NULL)emember, you can evaluate lenode(NULL)ro-64  ";
  164. 1522 [153]" for a full 10 days at no risk with our ";
  165. 1524 [153]" moneyback quarantee. "
  166. 1549 [137]1549
  167. 2200 [153]"loadopen"
  168. 2201 [153]"  (NULL)ur peekatn(NULL)right$len tutorial covers ";:pt$[178]"all":[141]9410:[153]" peekatn(NULL)right$len"
  169. 2202 [141]9300:[153]"  language commands, statements, and":[141]9300
  170. 2204 [153]"  functions. (NULL)ou choose a topic from":[141]9300
  171. 2206 [153]"  the ";:pt$[178]"main menu":[141]9410:[153]" or from ";
  172. 2208 pt$[178]"topic menus":[141]9410:[153]"..."
  173. 2210 ml[178]25:pt$[178]f7$:[141]9420
  174. 2218 [141]9400
  175. 2300 [143] statements menu
  176. 2302 [151]53272,23:[153]"openloadwaitlenode(NULL)ro-64     peekatn(NULL)right$len (NULL)tatements    4.0.0";
  177. 2305 [153] " 0 - left$ow to (NULL)se the (NULL)(NULL)atn(NULL)val(NULL)val(NULL)(NULL)(NULL)closetutorial"
  178. 2306 [153] " 1 - len(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) wait (chr$(NULL)(NULL)(NULL),chr$(NULL)(NULL)(NULL)peek,(NULL)(NULL),(NULL)(NULL)(NULL),(NULL)(NULL)(NULL))
  179. 2308 print " 2 - [204][207][207][208][211] [146] ([198][207][210]...[206][197][216][212])"
  180. 2310 print " 3 - [195][207][206][196][201][212][201][207][206][193][204][211] [146] ([201][198]...[212][200][197][206])"
  181. 2312 print " 4 - [196][197][198][201][206][201][212][201][207][206]  ([196][201][205], [196][193][212][193], [196][197][198][160][198][206])"
  182. 2314 print "[160]5 - [201][206][208][213][212]  ([199][197][212],[201][206][208][213][212],[210][197][193][196],[210][197][211][212][207][210][197])"
  183. 2316 print " 6 - [207][213][212][208][213][212]  ([208][210][201][206][212], [195][205][196])"
  184. 2318 print" 7 - [198][201][204][197] [201]/[207] ([207][208][197][206],[195][204][207][211][197],[199][197][212]#,[201][206][208][213][212]#,":print"               [208][210][201][206][212]#)"
  185. 2319 print " 8 - [207][212][200][197][210]  ([195][204][210], [197][206][196], [208][207][203][197], [210][197][205], [211][212][207][208])"
  186. 2320 ml=24:pt$="[204]et's watch some of the [204][207][207][208][211] tutorial":gosub9420
  187. 2322 forn=0to0:ns=1304:nl=24:gosub1190:nextn
  188. 2329 ml=25:pt$=f7$:gosub9420
  189. 2330 gosub9400
  190. 2350 print"[147][159]"
  191. 2352 print"  [217]ou scroll through text screens at":gosub9300
  192. 2354 print"  ";:pt$="your own pace":gosub9410:print" to study a topic. [212]here"
  193. 2355 gosub9300
  194. 2356 print"  are numerous ";:pt$="interactive":gosub9410:print" screens that"
  195. 2357 gosub9300
  196. 2358 print"  show you ";:pt$="code examples":gosub9410:print"."
  197. 2359 gosub9300
  198. 2362 print"  [195]ertain topics use ";:pt$="[194]asic[214]iew graphics":gosub9410:print
  199. 2363 gosub9300
  200. 2364 print"  to help you grasp concepts ";:pt$="visually":gosub9410:print"..."
  201. 2365 gosub9300
  202. 2366 print"  [215]atch the next screen carefully..."
  203. 2367 gosub9300
  204. 2368 ml=25:pt$=f7$:gosub9420
  205. 2369 gosub9400
  206. 2400 rem basicview
  207. 2405 li=50:in=10:up=20:li$="50":in$="10":up$="20"
  208. 2410 poke 53272,21
  209. 2412 print "[147][159]codepro-64     basicview [146]          4.2.3"
  210. 2414 print"example statements    flowchart      [146]";
  211. 2416 gosub 2510:gosub2511:gosub2513:gosub2514:gosub2515
  212. 2418 print "";
  213. 2420 print " current values: ":print"    i = .. [146]"
  214. 2422 print "    j = .. [146]"
  215. 2424 ml=24:pt$=" watch as we demo the for-next loop. ":gosub9420
  216. 2425 print"";spc(28);"[170]";
  217. 2426 gosub2516:gosub2520:gosub2530:gosub2540:gosub2550:gosub2560:gosub2570
  218. 2427 print"";spc(28);"[170]";
  219. 2428 gosub2580:gosub2590
  220. 2429 print"";spc(28);"[170]";
  221. 2430 gosub2505
  222. 2435 print"";:gosub2516:gosub2510
  223. 2440 gosub2505
  224. 2445 print"[146]";:gosub2516:gosub2510:print"";:gosub2511:gosub2520
  225. 2446 i=in:j=0:gosub2595
  226. 2450 gosub2505
  227. 2455 print"[146]";:gosub2511:gosub2520:gosub2530:gosub2570
  228. 2456 print"";:gosub2513:gosub2540
  229. 2457 j=2*i:gosub2595
  230. 2460 gosub2505
  231. 2466 print "[146]";:gosub2513:gosub2540
  232. 2467 print"";:gosub2514:gosub2550
  233. 2468 i=i+up:gosub2595
  234. 2470 gosub2505
  235. 2475 print"[146]";:gosub2514:gosub2550:print"";:gosub2511:gosub2530
  236. 2478 ifi>lithengoto2490
  237. 2480 gosub2505
  238. 2485 print"[146]";:gosub2511:gosub2530:print"";:gosub2570:print"[146]";:gosub2585
  239. 2486 goto2455
  240. 2490 rem all done
  241. 2493 gosub2505
  242. 2499 print"[146]";:gosub2530:gosub2511:print"";:gosub2560:gosub2590:gosub2515
  243. 2500 rem all done
  244. 2501 print "";
  245. 2502 ml=25:pt$="        press f7 to continue          ":gosub9420
  246. 2504 gosub9400:poke53272,23:return
  247. 2505 for t=0to1000:nextt:return
  248. 2510 print " 05 ...";:return
  249. 2511 print " 10 for i=";in$;" to ";li$;"[157][157][157][157][157][157][157][157][157][157][157][157]";"step ";up$;
  250. 2512 return
  251. 2513 print " 20 j=2*i";:return
  252. 2514 print " 30 next i";:return
  253. 2515 print " 40 ...";:return
  254. 2516 print"";spc(15);" entry--->";:return
  255. 2517 return
  256. 2519 return
  257. 2520 print"";spc(25);"[207][183][183][183][183][183][183][208]";:print"";spc(25);"[180] i=";in$;" [170]";
  258. 2522 print"";spc(25);"[204][175][175][175][175][175][175][186]";
  259. 2529 return
  260. 2530 print"";spc(28);"[206][205]";"[157][157][157][206]i>[205][157][157][157][157][157][206] ";li$;" [205]";
  261. 2532 print"[157][157][157][157][157][157][205] ?? [206][157][157][157][157][157][205]  [206][157][157][157][205][206]";
  262. 2539 return
  263. 2540 print"";
  264. 2541 printspc(25);"[207][183][183][183][183][183][183][208]";:print"[157][157][157][157][157][157][157][157]";"[180]j=2*i [170]";
  265. 2542 print"[157][157][157][157][157][157][157][157]";"[204][175][175][175][175][175][175][186]";
  266. 2549 return
  267. 2550 print"";
  268. 2551 printspc(25);"[207][183][183][183][183][183][183][208]";:print"[157][157][157][157][157][157][157][157]";"[180]i=i+";up$;"[170]";
  269. 2552 print"[157][157][157][157][157][157][157][157]";"[204][175][175][175][175][175][175][186]";
  270. 2559 return
  271. 2560 print "";spc(33);"yes[157][157][157][157][195][195]>";
  272. 2569 return
  273. 2570 print "";spc(24);"no";
  274. 2579 return
  275. 2580 print "";spc(21);"[176][195][195]>[157][157][157][157][194][157][194][157][194][157][194][157][194][157][194][157][194][157][194][157][194][157][173][195][195][195][195]";
  276. 2581 return
  277. 2585 tt=050
  278. 2586 print"";spc(21);"[209][195][195][195][195]";
  279. 2587 for t=1tott:nextt:print"[159][157][157][157][157][157][173][195][195][195][195]";"[145][157][157][157][157][157][209]";:fort=1tott:nextt:
  280. 2588 for t2=1to8:print"[159][157][194][145][157][209]";:fort=1tott:nextt:nextt2
  281. 2589 print"[157][159][194][145][157][176][209][195]>";:for t=1tott:nextt:print"[159][157][157][157][157][176][195][195]>";:return
  282. 2590 print"";spc(35);"exit";
  283. 2591 return
  284. 2595 i$=str$(i):j$=str$(j)
  285. 2596 print "";
  286. 2597 print " current values: ":print"    i = ";i$;" [146]";
  287. 2598 print "";
  288. 2599 print "    j = ";j$;" [146]";:return
  289. 2600 rem music generator demo
  290. 2601 goto2800
  291. 2602 gosub 2700:zn=7
  292. 2604 rem ns=56216:fornl=0to19:pokens+nl,1:nextnl
  293. 2605 remns=1946:nl=19:gosub1194
  294. 2680 gosub9400
  295. 2689 poke53272,23:return
  296. 2690 forn=0to2:pokens+n,peek(ns+n)+128:nextn
  297. 2691 ns=ns-40:forn=0to2:pokens+n,peek(ns+n)+128:nextn:ns=ns+40:
  298. 2692 return
  299. 2694 rem geta$:ifa$=""then2694
  300. 2695 forn=0to2:pokens+n,peek(ns+n)-128:nextn
  301. 2696 ns=ns-40:forn=0to2:pokens+n,peek(ns+n)-128:nextn:ns=ns+40:fort=0to250:nextt
  302. 2697 return
  303. 2699 stop
  304. 2700 rem music staff
  305. 2701 poke 53272,21
  306. 2702 print"[159][147]codepromusic generatorb.2.5";
  307. 2704 for i=1to5
  308. 2705 print "[170][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][180]";
  309. 2706 ifi<5thenprint"[170]";spc(38);"[180]";
  310. 2707 next i
  311. 2708 print:print" "
  312. 2710 print"      press space bar to play note [146][159]"
  313. 2712 print"      note ..[146] octave .[146] duration .[146]"
  314. 2714 print"      hi  ...[146] lo   ...[146] loop  ....[146]   "
  315. 2720 gosub2790
  316. 2722 print"";np$(1);"";np$(1);"[145][145][145][145]";np$(8);
  317. 2724 print"";np$(8);"[145]";np$(10);"";np$(10);"";np$(8);"[146]";
  318. 2726 print"";
  319. 2727 print"     note number ..[146] max note ..[146]"
  320. 2728 print"move note up or down, left or right with ";
  321. 2730 print"  cursor keys, then hit return.[146]"
  322. 2732 ml=23:pt$="the codepro music generator lets you ":gosub9420
  323. 2734 ml=24:pt$="create, edit, play & save simple tunes":gosub9420
  324. 2735 ml=25:pt$=" press f7 to continue          ":gosub9420
  325. 2739 return
  326. 2757 print"      hi  ";hi$;"[146] lo   ";lo$;
  327. 2786 return
  328. 2790 np$(01)="[195][209][195][145][157][157][157] [170] [157][157][157]"
  329. 2792 np$(03)=" [209] [145][157][157][157][195] [180][157][157][157]"
  330. 2793 np$(05)="[195][209][195][145][157][157][157] [170] [157][157][157]"
  331. 2794 np$(06)=" [209] [145][157][157][157][195] [180][157][157][157]"
  332. 2795 np$(08)="[195][209][195][145][157][157][157] [170] [157][157][157]"
  333. 2796 np$(10)=" [209] [145][157][157][157][195] [180][157][157][157]"
  334. 2798 nl$(01)="c ":nl$(08)="g ":nl$(10)="a "
  335. 2799 return
  336. 2800 print"[147][159]"
  337. 2802 print"  [195]ode[208]ro-64 teaches you all about"
  338. 2803 gosub9300
  339. 2804 print"  ";:pt$="[205][213][211][201][195][160][208]rogramming":gosub9410:print" on the [195]ommodore 64."
  340. 2805 gosub9300
  341. 2806 print"  [217]ou get instructional text and some"
  342. 2807 gosub9300
  343. 2810 print"  interactive examples in the ";:pt$="[201]ntro-":gosub9415:print
  344. 2812 print"  ";:pt$="duction to [205][213][211][201][195]":gosub9410:print" tutorial. [212]hen you"
  345. 2813 gosub9300
  346. 2814 print"  get to compose tunes using our"
  347. 2815 gosub9300
  348. 2816 print"  ";:pt$="[205][213][211][201][195][160][199]enerator":gosub9410:print". [217]ou enter notes by"
  349. 2817 gosub9300
  350. 2818 print"  moving a 'note-cursor' on the scale"
  351. 2819 gosub9300
  352. 2820 print"  with the cursor control keys..."
  353. 2821 gosub9300
  354. 2822 print"  [217]ou can ";:pt$="play":gosub9410:print" and ";:pt$="re-edit"
  355. 2824 gosub9410:print" your song."
  356. 2825 gosub9300
  357. 2826 print"  [193]nd you can ";:pt$="save it to disk!":gosub9410:print"..."
  358. 2827 gosub9300
  359. 2828 print"  [215]atch as we show you how the "
  360. 2829 gosub9300
  361. 2830 print"  [195]ode[208]ro-64 [205][213][211][201][195] [199]enerator works..."
  362. 2832 ml=25:pt$=f7$:gosub9420:gosub9400
  363. 2834 goto2602
  364. 3100 print"[147][159]"
  365. 3102 print"  [201]n our ";:pt$="[211][208][210][201][212][197][160][196]emonstrator":gosub9410:print" we use"
  366. 3103 gosub9300
  367. 3104 print"  interactive graphics to help you"
  368. 3105 gosub9300
  369. 3106 print"  learn about ";:pt$="[211][208][210][201][212][197][160][208]rogramming":gosub9410:print"..."
  370. 3107 gosub9300
  371. 3108 print"  [212]he next screen is one of many in our"
  372. 3109 gosub9300
  373. 3110 print"  [211][208][210][201][212][197] [196]emonstrator topic which helps"
  374. 3111 gosub9300
  375. 3112 print"  you learn by ";:pt$="visual examples":gosub9410:print"..."
  376. 3113 ml=25:pt$=f7$:gosub9420
  377. 3114 gosub9400
  378. 3200 rem x/y  3 sprites
  379. 3202 print"[159][147]";spc(35);"9.3.3";:gosub3406
  380. 3203 print"";spc(21);"[206]ow, let's watch[146]":printspc(21);"all 3 sprites[146] go"
  381. 3204 printspc(21);"through a loop":printspc(21);"at the same time."
  382. 3210 printspc(21);"[206]ote that we use an";:printspc(21);"increment[146] of  3 [146]"
  383. 3212 printspc(21);"as we move thru the";:printspc(21);"loop."
  384. 3215 printspc(21);"[200]ere are the values";:printspc(21);"in the [216] and [217] regs";
  385. 3216 printspc(21);"as the sprites move";:printspc(21);"around the screen."
  386. 3217 printspc(21);"[211]prite[146] [216]-reg[146] [217]-reg[146]"
  387. 3218 printspc(21);"   0    050   055"
  388. 3219 printspc(21);"   1    025   100"
  389. 3220 printspc(21);"   2    025   055"
  390. 3225 pokev+0,50:pokev+1,55:pokev+2,25:pokev+3,100:pokev+4,25:pokev+5,55
  391. 3230 pokev+0,50:pokev+1,55:pokev+2,25:pokev+3,100:pokev+4,25:pokev+5,55
  392. 3231 z=0:z2=0:pokev+21,7:fort=0to1000:nextt
  393. 3232 ml=23:pt$="[215]atch as the [211][208][210][201][212][197][211] move thru a loop.":gosub9420
  394. 3239 z=z+3:if z>130 thenz=0:z2=z2+1:ifz2>0then3268
  395. 3240 x=z+25:y=z+55
  396. 3242 x$=str$(x):x1$=mid$(x$,2,1):x2$=mid$(x$,3,1):x3$=right$(x$,1)
  397. 3243 if x<100thenx2$=x1$:x1$="0"
  398. 3244 y$=str$(y):y1$=mid$(y$,2,1):y2$=mid$(y$,3,1):y3$=right$(y$,1)
  399. 3245 if y<100theny2$=y1$:y1$="0"
  400. 3246 x1=asc(x1$):x2=asc(x2$):x3=asc(x3$)
  401. 3247 y1=asc(y1$):y2=asc(y2$):y3=asc(y3$)
  402. 3250 pokec4,y1:pokec5,y2:pokec6,y3
  403. 3252 poke d1,x1:poked2,x2:poked3,x3
  404. 3254 poke e1,x1:pokee2,x2:pokee3,x3:pokee4,y1:pokee5,y2:pokee6,y3
  405. 3263 pokev+0,50:pokev+1,y
  406. 3264 pokev+2,x:pokev+3,100
  407. 3265 pokev+4,x:pokev+5,y
  408. 3266 goto3239
  409. 3267 gosub9100:goto3200
  410. 3268 ml=25:pt$=f7$:gosub9420
  411. 3269 gosub9400:pokev+21,0:return
  412. 3300 rem init
  413. 3306 v=53248
  414. 3307 pokev+29,0:pokev+23,0
  415. 3308 pokev+21,0:pokev+16,0
  416. 3310 for t=54272to54296:poket,0:nextt
  417. 3330 for j=1to63:readn:poke831+j,n:nextj
  418. 3335 poke2040,13:pokev+39,1
  419. 3340 for j=1to63:readn:poke895+j,n:nextj
  420. 3345 poke2041,14:pokev+40,14
  421. 3350 for j=1to63:readn:poke959+j,n:nextj
  422. 3355 poke2042,15:pokev+41,3
  423. 3356 for j=1to63:readn:poke703+j,n:nextj
  424. 3357 poke2043,11:pokev+42,1
  425. 3360 sm=1024:cm=55296:c1=sm+749:c2=c1+1:c3=c2+1:c4=c3+4:c5=c4+1:c6=c5+1
  426. 3362 d1=sm+789:d2=d1+1:d3=d2+1:d4=d3+4:d5=d4+1:d6=d5+1
  427. 3364 e1=sm+829:e2=e1+1:e3=e2+1:e4=e3+4:e5=e4+1:e6=e5+1
  428. 3380 data255,255,255,128,0,1,128,0,1,128,60,1,128,255,1,129,195,129
  429. 3382 data131,129,193,131,129,193,131,129,193,131,129,193,131,129,193,131,129,193
  430. 3384 data131,129,193,131,129,193,131,129,193,129,195,129,128,255,1,128,60,1
  431. 3386 data128,0,1,128,0,1,255,255,255
  432. 3388 data255,255,255,128,0,1,128,0,1,128,60,1,128,124,1,128,252,1,128,28,1
  433. 3390 data128,28,1,128,28,1,128,28,1,128,28,1,128,28,1,128,28,1,128,28,1,128,28,1
  434. 3392 data128,28,1,129,255,193,129,255,193,128,0,1,128,0,1,255,255,255
  435. 3394 data255,255,255,128,0,1,128,0,1,128,0,1,128,255,1,129,195,129,131,129,193
  436. 3396 data131,128,193,131,129,193,128,3,193,128,7,129,128,15,1,128,30,1
  437. 3397 data128,60,1,128,120,1,129,240,1,131,255,193,131,255,193,128,0,1,128,0,1
  438. 3398 data 255,255,255
  439. 3400 data 255,255,255,128,0,1,128,0,1,128,0,1,128,24,1,128,24,1,128,24,1
  440. 3402 data 128,60,1,128,60,1,128,126,1,128,126,1,128,255,1,133,60,161,134,60,97
  441. 3404 data 142,24,113,142,24,113,132,0,33,132,0,33,128,0,1,128,0,1,255,255,255
  442. 3405 return
  443. 3406 print"....5...10...15...20  [211][208][210][201][212][197] [196][197][205][207]"
  444. 3408 print"";spc(19);".[157].[157].[157]5[157].[157].[157].[157]1[157]0[157].[157].[157].[157]1[157]5[157].[157].[157].[157]2[157]0
  445. 3410 [153]"....5...10...15...20":[142]
  446. 3450 [153]"loadopen"
  447. 3452 [153]"  (NULL)ou just saw an example of lenode(NULL)ro's"
  448. 3453 [141]9300
  449. 3454 [153]"  unique ";:pt$[178]"peekasic(NULL)iew":[141]9410:[153]" graphics as used in"
  450. 3455 [141]9300
  451. 3456 [153]"  the ";:pt$[178]"peekatn(NULL)right$lenclose(NULL)tatements (NULL)utorial":[141]9410:[153]"..."
  452. 3457 [141]9300
  453. 3458 [153]"  (NULL)o help you with ";:pt$[178]"creating":[141]9410:[141]9300
  454. 3459 [153]" (NULL)(NULL)(NULL)right$(NULL)val(NULL) for":[141]9300
  455. 3460 [153]"  use in your own programs, lenode(NULL)ro-64"
  456. 3461 [141]9300
  457. 3462 [153]"  provides a ";:pt$[178]"(NULL)(NULL)(NULL)right$(NULL)valclosechr$enerator":[141]9410:[153]"..."
  458. 3463 [141]9300
  459. 3464 [153]"  (NULL)ou enter (NULL)'s on the generator screen"
  460. 3465 [141]9300
  461. 3466 [153]"  to ";:pt$[178]"draw your sprite":[141]9410:[153]". lenode(NULL)ro-64 will"
  462. 3467 [141]9300
  463. 3468 [153]"  then create the sprite data and show"
  464. 3469 [141]9300
  465. 3470 [153]"  your sprite on the screen...(you can"
  466. 3471 [141]9300
  467. 3472 [153]"  also ";:pt$[178]"save your sprite":[141]9410:[153]" to disk!)..."
  468. 3473 [141]9300
  469. 3474 [153]"  ascirst you will see a completed sprite"
  470. 3475 [141]9300
  471. 3476 [153]"  definition, with the (NULL)'s entered on"
  472. 3477 [141]9300
  473. 3478 [153]"  the (NULL)(NULL)(NULL)right$(NULL)valclosechr$enerator screen..."
  474. 3479 ml[178]25:pt$[178]f7$:[141]9420             
  475. 3480 [141]9400
  476. 3500 [143] sprite generator
  477. 3502 [153]"loadopenwait8.1.0 (NULL)(NULL)(NULL)right$(NULL)val chr$val(NULL)val(NULL)atn(NULL)(NULL)(NULL)    ---str$atn(NULL)atn---"
  478. 3504 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)  0,0,0"
  479. 3505 [153]"(NULL)......................(NULL)  0,0,0"
  480. 3506 [153]"(NULL)......................(NULL)  0,0,0"
  481. 3507 [153]"(NULL)......................(NULL)  0,0,0"
  482. 3508 [153]"(NULL)..........(NULL)(NULL)..........(NULL)  0,0,0"
  483. 3509 [153]"(NULL)..........(NULL)(NULL)..........(NULL)  0,0,0"
  484. 3510 [153]"(NULL)..........(NULL)(NULL)..........(NULL)  0,0,0"
  485. 3511 [153]"(NULL).........(NULL)(NULL)(NULL)(NULL).........(NULL)  0,0,0"
  486. 3512 [153]"(NULL).........(NULL)(NULL)(NULL)(NULL).........(NULL)  0,0,0"
  487. 3513 [153]"(NULL)........(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)........(NULL)  0,0,0"
  488. 3514 [153]"(NULL)........(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)........(NULL)  0,0,0"
  489. 3515 [153]"(NULL).......(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL).......(NULL)  0,0,0"
  490. 3516 [153]"(NULL)....(NULL).(NULL)..(NULL)(NULL)(NULL)(NULL)..(NULL).(NULL)....(NULL)  0,0,0"
  491. 3517 [153]"(NULL)....(NULL)(NULL)...(NULL)(NULL)(NULL)(NULL)...(NULL)(NULL)....(NULL)  0,0,0"
  492. 3518 [153]"(NULL)...(NULL)(NULL)(NULL)....(NULL)(NULL)....(NULL)(NULL)(NULL)...(NULL)  0,0,0"
  493. 3519 [153]"(NULL)...(NULL)(NULL)(NULL)....(NULL)(NULL)....(NULL)(NULL)(NULL)...(NULL)  0,0,0"
  494. 3520 [153]"(NULL)....(NULL)............(NULL)....(NULL)  0,0,0"
  495. 3521 [153]"(NULL)....(NULL)............(NULL)....(NULL)  0,0,0"
  496. 3522 [153]"(NULL)......................(NULL)  0,0,0"
  497. 3523 [153]"(NULL)......................(NULL)  0,0,0"
  498. 3524 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)  0,0,0"
  499. 3525 [153]"    5   10   15   20  24"
  500. 3526 ml[178]25:pt$[178]f7$:[141]9420
  501. 3527 [141]9400
  502. 3550 [153]"load"
  503. 3552 [153]"  (NULL)ow lenode(NULL)ro-64 will ";
  504. 3554 pt$[178]"calculate the data":[141]9410
  505. 3555 [141]9300
  506. 3556 [153]"  needed to ";:pt$[178]"define your (NULL)(NULL)(NULL)right$(NULL)val ":[141]9410:[153]" and then";
  507. 3557 [141]9300
  508. 3559 [153]"  display the data and ";:pt$[178]"your (NULL)(NULL)(NULL)right$(NULL)val":[141]9410:[153]"..."
  509. 3560 ml[178]25:pt$[178]f7$:[141]9420
  510. 3569 [141]9400
  511. 3602 [153]"loadopenwait8.1.0 (NULL)(NULL)(NULL)right$(NULL)val chr$val(NULL)val(NULL)atn(NULL)(NULL)(NULL)    ---str$atn(NULL)atn---"
  512. 3604 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)  255,255,255"
  513. 3605 [153]"(NULL)......................(NULL)  128,0,1"
  514. 3606 [153]"(NULL)......................(NULL)  128,0,1"
  515. 3607 [153]"(NULL)......................(NULL)  128,0,1"
  516. 3608 [153]"(NULL)..........(NULL)(NULL)..........(NULL)  128,24,1"
  517. 3609 [153]"(NULL)..........(NULL)(NULL)..........(NULL)  128,24,1"
  518. 3610 [153]"(NULL)..........(NULL)(NULL)..........(NULL)  128,24,1"
  519. 3611 [153]"(NULL).........(NULL)(NULL)(NULL)(NULL).........(NULL)  128,60,1"
  520. 3612 [153]"(NULL).........(NULL)(NULL)(NULL)(NULL).........(NULL)  128,60,1"
  521. 3613 [153]"(NULL)........(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)........(NULL)  128,126,1"
  522. 3614 [153]"(NULL)........(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)........(NULL)  128,126,1"
  523. 3615 [153]"(NULL).......(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL).......(NULL)  128,255,1"
  524. 3616 [153]"(NULL)....(NULL).(NULL)..(NULL)(NULL)(NULL)(NULL)..(NULL).(NULL)....(NULL)  133,60,161"
  525. 3617 [153]"(NULL)....(NULL)(NULL)...(NULL)(NULL)(NULL)(NULL)...(NULL)(NULL)....(NULL)  134,60,97"
  526. 3618 [153]"(NULL)...(NULL)(NULL)(NULL)....(NULL)(NULL)....(NULL)(NULL)(NULL)...(NULL)  142,24,113"
  527. 3619 [153]"(NULL)...(NULL)(NULL)(NULL)....(NULL)(NULL)....(NULL)(NULL)(NULL)...(NULL)  142,24,113"
  528. 3620 [153]"(NULL)....(NULL)............(NULL)....(NULL)  132,0,33"
  529. 3621 [153]"(NULL)....(NULL)............(NULL)....(NULL)  132,0,33"
  530. 3622 [153]"(NULL)......................(NULL)  128,0,1"
  531. 3623 [153]"(NULL)......................(NULL)  128,0,1"
  532. 3624 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)  255,255,255"
  533. 3625 [153]"    5   10   15   20  24"
  534. 3626 [151] 53254,62:[151]53255,125:[151]53264,08:[151]53269,8
  535. 3627 ml[178]25:pt$[178]f7$:[141]9420
  536. 3628 [141]9400
  537. 3639 [151]53269,0
  538. 3648 [142]
  539. 4000 [153]"load":[151]53272,23
  540. 4002 [153]"  (NULL)e have only hit the highlights of"
  541. 4003 [141]9300
  542. 4004 [153]"  lenode(NULL)ro-64 in this demo. (NULL)here are"
  543. 4005 [141]9300
  544. 4006 [153]"  ";:pt$[178]"sixteen":[141]9410:[153]" peekatn(NULL)right$len programs in the system"
  545. 4007 [141]9300
  546. 4008 [153]"  (including ";:pt$[178]"two sample programs":[141]9410:[153]" for"
  547. 4009 [141]9300
  548. 4010 [153]"  your own use)."
  549. 4011 [141]9300
  550. 4012 [153]"  lenode(NULL)ro-64 comes with a ";:pt$[178]"140-page":[141]9415:[153]
  551. 4014 [153]"  ";:pt$[178]"reference manual":[141]9410:[153]" and has these other"
  552. 4015 [141]9300
  553. 4016 [153]"  features not shown in the demo:"
  554. 4017 [141]9300
  555. 4018 [153]"   - (NULL)eyboard review   - right$ntro to peekatn(NULL)right$len"
  556. 4019 [141]9300
  557. 4020 [153]"   - (NULL)eyboard chr$raphics - (NULL)(NULL)(NULL)right$(NULL)val right$ntro"
  558. 4021 [141]9300
  559. 4022 [153]"   - (NULL)usic right$ntro       - (NULL)eyword (NULL)elect"
  560. 4023 [141]9300
  561. 4024 [153]"   - peekatn(NULL)right$lencloselenommands    - peekatn(NULL)right$len ascunctions";
  562. 4025 [141]9300
  563. 4026 [153]"   - (NULL)ample (NULL)(NULL)(NULL)right$(NULL)val program and file"
  564. 4027 [141]9300
  565. 4028 [153]"   - (NULL)ample (NULL)(NULL)(NULL)right$len program and file"
  566. 4029 [141]9300
  567. 4030 [153]"  right$f you ";:pt$[178]"are serious":[141]9410:[153]" about learning to"
  568. 4031 [141]9300
  569. 4032 [153]"  program your lenommodore 64 ";:pt$[178]"you owe it":[141]9415:[153]
  570. 4034 [153]"  ";:pt$[178]"to yourself":[141]9410:[153]" to try lenode(NULL)ro-64."
  571. 4035 [141]9300
  572. 4036 ml[178]25:pt$[178]f7$:[141]9420
  573. 4038 [141]9400
  574. 4040 [142]
  575. 9000 [143] init
  576. 9002 qo$[178][199](34):f7$[178]" (NULL)ress f7 to continue         "
  577. 9004 [151]53272,23:v[178]53248:[151]v[170]21,0
  578. 9006 [151]53280,14:[151]53281,6
  579. 9010 [129]n[178]0[164]11:[135]nt:[129]oc[178]7[164]0[169][171]1:[139]oc[179]7[167]nt[178]nt[173]2
  580. 9012 hf%[178]nt[173]256:lf%[178]nt[171]hf%[172]256:nn[178]oc[172]12[170]n[170]1:hf(nn)[178]hf%:lf(nn)[178]lf%:[130]oc:[130]n
  581. 9014 [131] 34334,36376,38539,40830,43258,45830,48556,51443
  582. 9016 [131] 54502,57743,61176,64814
  583. 9018 s[178]54272:[129]n[178]0[164]28:[151]s[170]n,0:[130]n
  584. 9020 v1[178]s:v2[178]s[170]7:v3[178]s[170]14:l1[178]v1:l2[178]v2:l3[178]v3:h1[178]l1[170]1:h2[178]l2[170]1:h3[178]l3[170]1
  585. 9040 [129]n[178]1[164]22:[135]nd(0,n),nd(1,n),nd(2,n):[130]n:px[178]1070:pz[178]1260
  586. 9042 [131]3,32,1,3,35,2,4,32,3,4,35,4,5,32,5,6,32,7,6,35,8,7,32,9,7,35,10,1,32,11
  587. 9043 [131]1,35,12,2,32,13,3,32,15,3,35,16,4,32,17,4,35,18,5,32,19,6,32,21
  588. 9044 [131]6,35,22,7,32,23,7,35,24,1,32,25
  589. 9099 [142]
  590. 9100 [129]t[178]54272[164]54296:[151]t,0:[130]t
  591. 9110 [151] 54296,15:[151]54277,0:[151]54278,240:[151]54273,34:[151]54272,75
  592. 9120 [151] 54276,17:[129]t[178]1[164]50:[130]t:[151]54276,16:[142]
  593. 9300 [129]t[178]0[164]050:[130]t:[142]
  594. 9302 fs[178]0
  595. 9305 [129] j[178]1[164]tc
  596. 9310 [161] a$:[139] a$[178]""[167] 9310
  597. 9315 a[178][198](a$)
  598. 9320 [139] a[177]132 [175] a[179]141[167][145]a[171]132[137]9390,9390,9390,9390,9350,9350,9350,9390
  599. 9325 nx$[178][202](tx$,j,1):nx[178][198](nx$)
  600. 9330 [139]a[178]32[176]a[178]160[176]a[178]nx[167]9370
  601. 9335 [139](nx[177]192[175]nx[179]219)[175]nx[171]128[178]a[167]9370
  602. 9340 [139](nx[177]64[175]nx[179]91)[175]nx[170]128[178]a[167]9370
  603. 9350 [141]9100:[137]9310:[143] error
  604. 9370 [153]"cmd";nx$;".wait";:[130]j
  605. 9372 [153] "cmdwait ";
  606. 9375 [142]
  607. 9390 fs[178]1
  608. 9395 [142]
  609. 9400 [161]a$:[139]a$[178]""[167]9400
  610. 9401 [139]a$[178]"let"[167][142]
  611. 9402 [137]9400
  612. 9410 pc[178][195](pt$):[153]"";
  613. 9412 [129]pn[178]1[164]pc:[153][202](pt$,pn,1);:[129]t[178]0[164]005:[130]t:[130]pn:[141]9300
  614. 9414 [153]"wait";:[142]
  615. 9415 pc[178][195](pt$):[153]"";
  616. 9417 [129]pn[178]1[164]pc:[153][202](pt$,pn,1);:[129]t[178]0[164]050:[130]t:[130]pn
  617. 9419 [153]"wait";:[142]
  618. 9420 [153]"";:[129]n[178]1[164]ml[171]1:[153]"";:[130]n
  619. 9421 pc[178][195](pt$):[153]" ";:[129]pn[178]1[164]38:[153]" ";:[130]pn
  620. 9422 [129]pn[178]1[164]pc:ps[178]pc[171]pn[170]1:[129]pm[178]1[164]pn:[153]"cmd";:[130]pm:[153][202](pt$,1,pn);
  621. 9424 [129]t[178]0[164]025:[130]t:[130]pn:[153]"waitopen";:[142]
  622.